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Cluster Type Pages Base Addr Disk VBN PFC Protection _and Paging Global Sec. Name Match Majorid Minorid 

CLUSTER1 3 6 00000000-R 2 0 READ ONLY 

DEFAULT_CLUSTER 4 1 P=00000C00-R 8 Q READ WRITE COPY ON REF 
2 1 O00000E00-R 9 0 READ WRITE FIXUP VECTORS 

COBRTL 3 55 00000000-R Q 0 READ ONLY COBRTL_001 LESS/EQUAL 1 1 
4 1 Q0006E00-R Q Q READ WRITE fw ON REF oeRTt 003 LESS/EQUAL 1 1 
4 1 P=00007000-R Q Q READ WRITE COPY ON REF _ COBRTL_00 LESS/EQUAL 1 1 
2 1 00007200-R OQ OQ READ WRITE FIXUP VECTORS COBRTL_004 LESS/EQUAL 1 1 

LIBRTL 3.0 («1171 00000000-R Q 0 READ ONLY LIBRTL_001 LESS/EQUAL 1 1 
4 1 OOOODEO0-R QO 0 READ WRITE DEMAND ZERO CIBRTL =002 LESS/EQUAL 1 1 

MTHRTL >. WY 00000000-R OQ 0 READ ONLY MTHRTL_001 LESS/EQUAL 129 3277 
2 1 0000E600-R 0 0 READ WRITE FIXUP VECTORS MTHRTL_002 LESS/EQUAL 129 3277 


Key for special characters above: 
H R = Relocatable H 
! P = Protected ! 
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0000 00000057 00000058 ( 8. 
30000 $0 8 $0000 $8 $o000088 ( HE 
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pooo008 : $0000187 $0000100 ( 536: 
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Suet Heer gubsate fe 
0000 $e 6 A 388 67 ( 313 
444 £ 38 8208 00099 ( 15 
0000 20 0 § 44 Al ( 161 
0000067C 00000802 00000187 ( 391 
00000804 000008E 44 9443] ( $79 
si 4 EC 44 644 1 QOOOOF7 ¢ 47 
QO0009E4 Boba 0000100 ¢ 256 
QOOOOAES OOO00BSF O000005C < 92 
00000C00 44449 4 00000010 <¢ 16. 
00000C00 OOOO0COF 00000010 < 16. 
00000C10 4s SS 4 464 ( 4. 
00000C10 00000C13 00000004 < 4. 
00000C14 00000C17 00000004 < 4. 
00000C14 00000C17 00000004 < 4. 
00000C18 00000C26 OOO00000F 15. 
00000C18 00000C26 O000000F ¢ 15. 
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PIC,USR,CON,REL,GBL, SHR, EXE, 


PIC,USR,CON,REL,GBL, SHR, EXE, 


PIC,USR,CON,REL,GBL, SHR, EXE, 


PIC,USR,OVR,REL,LCL,NOSHR,NOEXE, 
PIC,USR,CON,REL,LCL,NOSHR ,NOEXE, 
PIC,USR,OVR,REL,LCL,NOSHR,NOEXE, 


PIC,USR,CON,REL,LCL,NOSHR,NOEXE, 
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RD ,NOWRT ,NOVEC 


RD ,NOWRT ,NOVEC 


RD ,NOWRT ,NOVEC 


RD, 


RD, 


RD, 


WRT, 


WRT, 


WRT, 


WRT, 


VEC 


VEC 
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Value Defined By Referenced By ... 
ET_A_AB_PREV QOOOOESC-Rx COBRTL RPGSOSPLY 
ACC_BATE Q000E54-Rx COBRTL RPGSUDATE 
SACC-SC BOE a COBRTL RPGSOSPLY 
COBSCVTTD_R7 0000E50-Rx COBRTL RPG$SQRT 
COBSCVTLI_RB PO pE SE RK COBRTL RPG$SQRT 
COBSCVTPD-RO OO00E 74-Rx LIBRTL RPG$SQRT 
OBSCVTRDP_RO BE 7g-RX LIBRTL RPGS$SQRT 
COBSCVTWI _RB E48-RX COBRTL RPG$SQRT 
SP_SCR 3 ym 4 COBRTL RPGSDSPLY 
COBS_CALFAI 01 ee COBSMSGDEF 
FAIL 3 C COBSMSGDEF 
COB$_DELINCOPE 0198194 COBSMSGDEF 
ELNO_R 0019 136 COBSMSGDEF 
COBS_DELUNOF TL 0019818C COBSMSGDEF 
$ x 001981FC COBSMSGDEF 
OF cc 001981EC COBSMSGDEF RPGSHANDLER 
COBS_ERRDURACC 001981F4 COBSMSGDEF RPGSHANDLER 
COBS-ERRDURDIS 0019827C COBSMSGDEF RPGSHANDLER 
ERRDU 001982F4 COBSMSGDEF 
COBS"ERRDURSOR 00198074 COBSMSGDEF 
OBS ERRON_FIL 0019809C COBSMSGDEF 
EXPDBOVER edhe ae COBSMSGDEF 
COBS- FACILITY 00000019 COBSMSGDEF 
COBS- FAIFREEVM 00198274 COBSMSGDEF 
OBS" FAIGET_EF 0019829C COBSMSGDEF 
FAIG 0019826C COBSMSGDEF 
COBS”-FATINTERR 00198294 COBSMSGDEF 
COB$_FILALRCLO 001980DC COBSMSGDEF 
COB$_F ILALRLOC 001980AC COBSMSGDEF 
F ILALROPE 00198084 COBSMSGDEF 
COB$_F ILCLOLOC 01980BC COBSMSGDEF 
COBS_F ILNOTFOU 01980CC COBSMSGDEF 
TO_ALT Ieee COBSMSGDEF 
COBS_ INTOTVZER 19821C COBSMSGDEF 
INTEXPOVE 00198 04 COBSMSGD 
NTEXPUND 019820C COBSMSGDEF 
COBS~ INTRESOPE 00198 14 COBSMSGDEF 
INVARG 0198264 COBSMSGDEF RPGSHANDLER 
NVC 19824C COBSMSGDEF 
NVDECDAT 01982AC COBSMSGDEF 
COBS— INVDECDIG 0198224 COBSMSGDEF 
COBS— INVDEF VAL 001982F C COBSMSGDEF 
NVL INVAL 19808C COBSMSGDEF 
EYNOTMAT 1982CC COBSMSGDEF | 
COBS$_LSTHNDLDB 1982BC COBSMSGDEF | 
COBS"LSTHNDUSE 0198284 COBSMSGDEF 
COB$—NAMNOTL IN 198244 COBSMSGDEF 
COBS$_NESERRPER 00198 54 COBSMSGDEF 
COBS~ NORMAL 00198001 COBSMSGDEF 
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DAT 
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SYSSCREATE 
SYSSDISPLAY 
SYSSOPEN 
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Value Symbols... 


Key tor special characters above: 
! # = Undefined . 
!'U = Universal : 
' R = Relocatable ! 
' xX = External 
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: ;_Jmage_ Synopsis B 


yieeees Senery allocated: ‘nooo ype 00001000 (4096. bytes, 8. pages) 
ack size: . 
Image header virtual block Limits: 1. ts i. ¢ 1. block) 
Image binary virtual block Limits: 2. 9. ¢ 8. blocks) 
Image name and identification: RPGRTL V04-000 
N r of files: 10. 
Number of modules: 23. 
Number of program “sections: ide 
Number of global syssols: g78. 
Number of cross re erences: 27. 
Number of image sections: 11. 
Number of code references to shareable images: 16. . 
Image type: cuit SHAREABLE. Global Section oe h=LESS SC EQUAL . Ident, Major=1, Minor=100 
Map format: ULL WITH CROSS REFERENCE in file $255$DUA28:CRPGRIL LISJRPORTL, MAP; 1 
Estimated map Length: eo bl ocks . 
H ; Link Run Statistics H 

Performance Indicators Page Faults CPU Time Elapsed Time 

connend processing: 222 00:00:01.01 00:00:06.79 

280 00:00:01.53 00:00:15.24 

Al Location/Relocation: 33 =600:00:00.13 00:00:00.55 

Pass 2: 44 00:00:00.58 00:00:06.14 

Map data after object module synopsis: 21 00:00:01.15 00:00:01.32 

Symbol table output: 00:00:00.04 OF 8030785 
Total run values: 604 00:00:04.44 00:00:30.32 
Using a working set Limited to 1950 pages and 1269 pages of data storage (excluding image) 


Total number object records read (both passes): 412 
of which 175 were in Libraries and 2 were DEBUG data records containing 48 bytes 


aber of modules extracted pant etsy = 19 
with 0 extracted to resolve undefined symbols 


0 Library searches were for symbols not in the Library searched 
A total of 6 global symbol table records was written 


LINK/NOSYSL IB/SHARE=EXES: RPGRTL/MAP=MAP$:RPGRIL/FULL/CROSS COM$:RPGRTLLNK/OPTIONS 
! RPGRILLNK.OPT = Linker options file for building RPGRIL.EXE 


‘ 
i 1-001 = Original. DG 19-Apr-1983. 

1-002 - thy pulling ic in OTSSCNVOUT. It is now shared in LIBRTL. 

! 1-003 - had Sin 0 OF Sanscoer Also ghonge Patt idea Eunos RPGS $i TLNOON 
‘ to messages H1_ ISON, H2_ISON...H = 

i 1-004 = Reference to RPG$_INVDATTYP taken outs 61 1-Jul-1983, 

: Changes in message names. DG 13-Jul-1983. 
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Add NAME and IDENT statements. 0g gee duh 1965. 
1=008 - Add reference to RPGSDSPLY. LEB 2-AUG-198 
= change ref to IMAGELIB to be in SYSS$LIBRARY. change ref to RTL.OLB 
to "3 RPGRT B. Pull obj‘s from other OLB’s as necessary. 


MOL en 
1-007 = Add in RPGSDIVIDE. DG S-Mar-1984 


‘se 

; Spec’ fy image name and ident. Note that this is not the same as 

! the global section ident given with GSMATCH,. IDENT should change 

! each time RPGRTIL changes in a released version, such as a maintenance 
' update. GSMATCH should change only when the vector is modified in an 
: incompatible (backwards) fashion. 


NAME =RPGRTL 

IDENT=""V04-000"" 

le 

: Specify the order of the PSECTs. The vector comes first. 


COLLECT=CLUSTER1,SRPGSVECTOR, RPGSCODE, COBSCODE, MTHSCODE,_LIBSCODE 
COLLECT=CLUSTER2, RPGSDATA,_COBSDATA,_MTHSDATA, LIBSDATA 


'¢ 


! Specify modules to be included. The first must be RPGVECTOR. 
OBJ$ :RPGVECTOR,LIB$:RPGRTL/INCLUDE=(- 

RPGSIOEXCEPTION, - 

RPGSHANDLER, - 

RPGSERROR, - 

RPGSPRINT . = 


RPGSMSGDEFS 
RESOBJ$ : COBRTL/ INCLUDE =(- 
COBSMSGDEF ) 
RESOBJ$:LIBRTL/INCLUDE=(- 
LIB$AB_CVTTP_O,- 
LIBSMSGDEF, = 
OTSSMSGDEF 5 


RESOBJ$ : MTHRTL/ INCLUDE=(- 
MTHSMSGDEF ) 
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UNIVERSAL == 
RPGS_FORFILE,- 
RPGS-ENDOF FIL,- 
RPGS ERRDURDSP.- 


PG$_TABOUTS 


RPGS_ T 
RPG$_UPDNO_CUR 


SYSSLIBRARY : STARLET/ INCLUDE=(SYS$P1_VECTOR,SYSSSSDEF ) 
SYSSLIBRARY : IMAGELIB/LIBRARY 


! Set global section match values 
GSMATCH=LEQUAL 1,100 


QUIPMENT CORPORATION 
CONFIDENTIAL AND PROPRIETARY _ 


